home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Gemini / Horoscope Companion: Gemini.iso / pc / gemini / contents.dir / 00001.ls next >
Encoding:
Text File  |  1996-10-08  |  684 b   |  45 lines
  1. on startMovie
  2.   cursor(4)
  3.   setupMovie()
  4. end
  5.  
  6. on stopMovie
  7.   hCleanupSprites()
  8. end
  9.  
  10. on idle
  11.   CheckForRollovers(the rollOver)
  12. end
  13.  
  14. on setupMovie
  15.   setupVol()
  16.   sound fadeIn 1, 2 * 60
  17.   updateStage()
  18.   sound playFile 1, "MUSIC.AIF"
  19.   updateStage()
  20. end
  21.  
  22. on hCheckMusicPlaying
  23.   if soundBusy(1) then
  24.     nothing()
  25.   else
  26.     sound playFile 1, "MUSIC.AIF"
  27.   end if
  28. end
  29.  
  30. on hCheckSoundFadeOut
  31.   global gSoundFadeOut, gWhichMovie
  32.   if voidp(gSoundFadeOut) = 1 then
  33.     set gSoundFadeOut to 0
  34.   end if
  35.   if gSoundFadeOut = 1 then
  36.     if the timer < (1 * 60) then
  37.       nothing()
  38.     else
  39.       puppetSound(0)
  40.       set gSoundFadeOut to 0
  41.       play movie gWhichMovie
  42.     end if
  43.   end if
  44. end
  45.